home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b4.d64 / solution8.15 < prev    next >
Text File  |  2007-02-28  |  1KB  |  44 lines
  1. 0010 DIM TEXT$ OF 500, CH$ OF 1, BUF$ OF 80
  2. 0020 GETTEXT
  3. 0030 PRINT ARI
  4. 0040 //
  5. 0050 PROC GETTEXT 
  6. 0060 TEXT$:=" "
  7. 0070 FOR LINE:=1 TO 6 DO
  8. 0080 READ BUF$
  9. 0090 TEXT$:=TEXT$+BUF$
  10. 0100 ENDFOR LINE
  11. 0110 COMPUTE(TEXT$,INDEX)
  12. 0120 ARI:=INDEX
  13. 0130 ENDPROC GETTEXT
  14. 0140 //
  15. 0150 PROC COMPUTE(TEXT$,REF ARI) 
  16. 0160 COUNT:=0; POINT:=1; DOTCOUNT:=0; LETTERCOUNT:=0
  17. 0170 CH$:=TEXT$(POINT)
  18. 0180 WHILE CH$<>"*" DO
  19. 0190 WORD:=FALSE
  20. 0200 WHILE CH$<>"*" AND (CH$<"A" OR CH$>"Z") DO
  21. 0210 IF CH$="." THEN DOTCOUNT:=DOTCOUNT+1
  22. 0220 POINT:=POINT+1
  23. 0230 CH$:=TEXT$(POINT)
  24. 0240 ENDWHILE 
  25. 0250 WHILE CH$>="A" AND CH$<="Z" DO
  26. 0260 POINT:=POINT+1
  27. 0270 CH$:=TEXT$(POINT)
  28. 0280 LETTERCOUNT:=LETTERCOUNT+1
  29. 0290 WORD:=TRUE
  30. 0300 ENDWHILE 
  31. 0310 IF WORD THEN COUNT:=COUNT+1
  32. 0320 ENDWHILE 
  33. 0330 AVSENT:=COUNT/DOTCOUNT
  34. 0340 AVWORD:=LETTERCOUNT/COUNT
  35. 0350 ARI:=.5*AVSENT+4.71*AVWORD-15.43
  36. 0360 ENDPROC COMPUTE
  37. 0370 //
  38. 0380 DATA "ONCE YOU CAN APPLY THE USE OF PROCEDURES"
  39. 0390 DATA "INTELLIGENTLY TO YOUR COMPUTING PROBLEMS, A"
  40. 0400 DATA "WHOLE NEW WORLD OPENS UP; POWER AT YOUR"
  41. 0410 DATA "FINGERTIPS! - BRAILSFORD AND WALKER"
  42. 0420 DATA "INTRODUCTORY ALGOL 68 PROGRAMMING."
  43. 0430 DATA "ELLIS HORWOOD, 1979.*"
  44.